﻿'Hacemos una referencia al proyecto de acceso a datos
Imports DataAccessLayer
'Hacemos una referencia al proyecto BusinessEntitites
Imports BE = BusinessEntities

Public Class ContadorBL
    'Instanciamos la clase ContadorDAO
    Dim contador As New ContadorDAO

    Public Function IncrementarVisitas() As Boolean
        Return contador.IncrementarVisitas
    End Function

    Public Function MostrarVisitas() As DataSet
        Return contador.MostrarVisitas
    End Function


    Public Function ChapaError() As String
        Return contador.ChapaError
    End Function

End Class
